COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "WORDS"
C00003 ENDMK
C⊗;
BEGIN "WORDS"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	STRING STR;
	INTEGER CNT,BRK,EOF,FLG;
	ITG I1,I2,I3,I4,I5;

	OPEN(1,"DSK",0,3,0,CNT,BRK,EOF);
	LOOKUP(1,"ANA",FLG);

	BREAKSET(1," {}"&13,"I");
	BREAKSET(1,10,"O");

	BREAKSET(2,"⊗","I");
	EOF ← FALSE;
	CNT ← 3000;STR ← INPUT(1,2);
	CNT ← 3000;STR ← INPUT(1,2);
	I1 ← I2 ← I3 ← 0;

DO BEGIN
	CNT ← 3000;
	STR ← INPUT(1,1);
	IF BRK="{" THEN
	DO STR ← INPUT(1,1) UNTIL BRK="}" ELSE
BEGIN
	IF LENGTH(STR) THEN I1 ← I1 + 1;
	I2 ← I2 + LENGTH(STR) + 1;
END;
END UNTIL EOF;

	OUTSTR(↓&CVS(I1)&" WORDS."&↓);
	OUTSTR(↓&CVS(I2)&" CHARS."&↓);

END "WORDS";